01 LBL "DT" 
02 STO O 
03 2453069 
04 + 
05 ENTER^ 
06 FRC 
07 STO M 
08 - 
09 STO N 
10 2300685 
11 - 
12 X<0? 
13 GTO 01 
14 4 
15 * 
16 1727779 
17 + 
18 146097 
19 / 
20 INT 
21 ST+ N 
22 4 
23 / 
24 INT 
25 ST- N 
26 ISG N 
27 LBL 01 
28 CLX 
29 RCL N 
30 122.1 
31 - 
32 365.25 
33 STO P 
34 / 
35 INT 
36 ST* P 
37 RCL P 
38 INT 
39 ST- N 
40 CLX 
41 4715 
42 - 
43 X<> N 
44 ST+ M 
45 30.61 
46 STO P 
47 / 
48 INT 
49 ST* P 
50 RCL P 
51 INT 
52 ST- M 
53 CLX 
54 13 
55 X<Y? 
56 X=0? 
57 SIGN 
58 - 
59 E2 
60 ST/ M 
61 LOG 
62 X<Y? 
63 DSE N 
64 CLX 
65 X<> M 
66 + 
67 E2 
68 / 
69 RCL N 
70 SIGN 
71 * 
72 RCL N 
73 + 
74 RCL O 
75 SIGN 
76 RDN 
77 CLA 
78 END 
